home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
turbovis
/
tvtoys04.zip
/
IMPRTANT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-12-07
|
3KB
|
68 lines
(***************************************************************************
Important include
VideoTest warning text
PJB August 29, 1993, Internet mail to d91-pbr@nada.kth.se
Copyright 1993, All Rights Reserved
Free source, use at your own risk.
If modified, please state so if you pass this around.
***************************************************************************)
(*******************************************************************
This code generated by Dialog Design 4.0 available by anonymous
ftp to garbo.uwasa.fi /pc/turbovis. Thanks to David Baldwin
*******************************************************************)
function MakeImportantDialog : PDialog;
var
Dlg : PDialog;
R : TRect;
Control : PView;
begin
R.Assign(3, 0, 77, 22);
New(Dlg, Init(R, 'Important'));
Dlg^.Options := Dlg^.Options or ofCentered;
R.Assign(4, 2, 13, 3);
Control := New(PStaticText, Init(R, 'IMPORTANT'));
Dlg^.Insert(Control);
R.Assign(4, 4, 70, 6);
Control := New(PStaticText, Init(R, 'This program will first try to determ'+
'ine what video modes are available and then present a list for you to '+
'choose from. '));
Dlg^.Insert(Control);
R.Assign(4, 7, 71, 10);
Control := New(PStaticText, Init(R, '■ If your video card is VERY old (pre'+
' 1988) it might not handle '^M+
' this test very well and cause the computer to stop responding'+
'. '^M+
' If that happens, restart the computer and forget about this.'));
Dlg^.Insert(Control);
R.Assign(4, 11, 72, 14);
Control := New(PStaticText, Init(R, '■ If you have a fixed sync VGA monito'+
'r, trying to use Super VGA '^M+
' video modes will result in screen jitter. Even worse, the scr'+
'een '^M+
' fuse might melt if the monitor cannot cope with such signals.'));
Dlg^.Insert(Control);
R.Assign(4, 15, 71, 18);
Control := New(PStaticText, Init(R, '■ If you select a video mode other th'+
'an the normal 80x25 one, rest '^M+
' assured that your non-Logitech mouse driver will puke at you.'+
''^M+
' Try using the NewMouse unit included in this package.'));
Dlg^.Insert(Control);
R.Assign(20, 19, 34, 21);
Control := New(PButton, Init(R, '~R~un test', cmOK, bfNormal));
Dlg^.Insert(Control);
R.Assign(40, 19, 52, 21);
Control := New(PButton, Init(R, 'Cancel', cmCancel, bfDefault));
Dlg^.Insert(Control);
MakeImportantDialog := Dlg;
end;